home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 68 / 068.d81 / ps bag (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  181 lines
  1. 5 poke53281,0:poke53280,0
  2. 10 poke55,0:poke56,141:clr:gosub5000
  3. 12 sys57812"dirtovar.o",8,0:poke780,0:poke781,0:poke782,141:sys65493
  4. 14 sys57812"shopping bag.o",8,0:poke780,0:poke781,0:poke782,192:sys65493
  5. 16 sys57812"psb font",8,0:poke780,0:poke781,0:poke782,8:sys65493
  6. 18 poke53272,19
  7. 19 goto100
  8. 20 print"[159]     [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  9. 22 [153]md$
  10. 24 [153]"     -tantantantantantantantantantantantantantantantantantantantantantantantantantantantan<
  11. 26 forjj=1tox:printmd$:next
  12. 28 print"     [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  13. 29 return
  14. 30 print"[147]":x=18:gosub20
  15. 32 print""tab(29)"[178][157][221][158][208]age[159][157][157][157][157][157][221]"p+1"[159][157][157][157][157][173][192][192][192][192][179]"
  16. 36 print""tab(6)"[158]"m$(k):print
  17. 37 return
  18. 100 dimty$(144),na$(144),le$(144),c$(144),q%(144),m$(7),p%(7),v$(5),w$(5),e$(5)
  19. 102 dima,r,x,i,j,k,w,p,q,jj,d$,g%(144)
  20. 104 md$="     [221]                            [221]"
  21. 105 fori=1to5:readm$(i),p%(i),v$(i),w$(i),e$(i):next
  22. 106 data"  [212]wo-[194]lock to [212]hree-[194]lock  ",7,"2  ","[212]wo-[194]lock","-3"
  23. 107 data"  [212]hree-[194]lock to [212]wo-[194]lock  ",9,"3  ","[212]hree-[194]lock","-2"
  24. 108 data"  [208][210][201][206][212][205][193][211][212][197][210] to [208][211] 3-[194][204][207][195][203] ",14,"3  ","[208][210][201][206][212][205][193][211][212][197][210]","-3"
  25. 109 data"  [208][210][201][206][212][205][193][211][212][197][210] to [208][211] 2-[194][204][207][195][203] ",15,"3  ","[208][210][201][206][212][205][193][211][212][197][210]","-2"
  26. 110 data"  [208][210][201][206][212] [211][200][207][208] to [208][210][201][206][212][205][193][211][212][197][210] ",16,"2  ","[208][210][201][206][212] [211][200][207][208]",".gra"
  27. 111 m$(6)="         [196]irectory          ":p%(6)=19
  28. 112 m$(7)="     [210]eturn to [204][207][193][196][211][212][193][210]     ":p%(7)=21
  29. 115 ifflthenfl=0:return
  30. 120 print"[147][129]  [208] [210] [201] [206] [212]   [211] [200] [207] [208] [208] [201] [206] [199]   [194] [193] [199]"
  31. 122 fori=0to144:ifc$(i)=""theni=144:goto124
  32. 123 c$(i)=""
  33. 124 next
  34. 125 print"[155]          by the [204][207][193][196][211][212][193][210] [199]uys"
  35. 127 poke214,23:print:print"[159] [213]se [195][210][211][210] [213][208]/[196][207][215][206][159] and [210][197][212][213][210][206][159] to select"
  36. 130 poke214,4:print
  37. 135 x=3:gosub20:gosub20:x=1:gosub20
  38. 140 poke214,5:print:printtab(6)"[158]    [208][210][201][206][212] [211][200][207][208] [213]tilities    "
  39. 150 poke214,12:print:printtab(6)"   [208][210][201][206][212][205][193][211][212][197][210] [213]tilities    "
  40. 160 fori=1to7:poke214,p%(i):print"[154]":printtab(6)m$(i):next
  41. 200 k=1
  42. 210 poke214,p%(k):print
  43. 220 printtab(6)""m$(k)"[145]"
  44. 230 geta$:ifa$<>"[145]"anda$<>""anda$<>chr$(13)then230
  45. 240 ifa$=chr$(13)then300
  46. 245 printtab(6)"[154]"m$(k)
  47. 250 ifa$<>"[145]"then270
  48. 260 k=k-1:ifk<1thenk=7
  49. 265 goto210
  50. 270 k=k+1:ifk>7thenk=1
  51. 280 goto210
  52. 300 ifk=6then700
  53. 302 ifk=7then800
  54. 305 print"[147][159]"
  55. 310 printtab(10)"--- [208]lease wait ---"
  56. 311 ww$="[154][210]eading "+w$(k)+" [154]names."
  57. 312 print:printtab(21-(len(ww$)/2))ww$
  58. 313 fori=1to144:na$(i)="":c$(i)="":next:sys36096
  59. 314 j=0:fori=1to144
  60. 316 ifna$(i)=""theni=144:goto322
  61. 317 ifk=5thenifle$(i)=v$(2)then320
  62. 318 ifk=3ork=4thenifright$(na$(i),4)<>".gra"then322
  63. 319 ifle$(i)<>v$(k)then322
  64. 320 j=j+1:c$(j)=na$(i):g%(j)=i
  65. 322 next:p=0:fori=1toj:q%(i)=0:next
  66. 330 gosub30:rg=0:fori=p*18+1to(p+1)*18
  67. 331 printtab(10)"[154]";:ifq%(i)thenprint"";
  68. 332 ifc$(i)<>""thenrg=rg+1
  69. 333 printc$(i):next
  70. 334 poke214,22:print:print"  [211][208][193][195][197][159] toggle  [193][159] - toggle all  [205][159] menu "
  71. 335 print"   [210][197][212][213][210][206][159] - next page    [198]1[159] - convert "
  72. 336 r=1
  73. 337 poke198,0:poke214,2+r:print:printtab(8)">"tab(27)"<[145]"
  74. 338 geta$:ifa$="m"then120
  75. 339 ifa$<>" "anda$<>"a"anda$<>chr$(13)anda$<>"[133]"anda$<>"[145]"anda$<>""then338
  76. 340 ifa$="[133]"then400
  77. 342 ifa$<>chr$(13)then348
  78. 344 p=p+1:ifp*18>jthenp=0:goto330
  79. 346 goto330
  80. 348 ifa$<>"a"then355
  81. 349 forii=1toj:q%(ii)=1-q%(ii):next
  82. 351 poke214,3:print
  83. 352 forn=p*18+1top*18+18:ifq%(n)thenprinttab(10)""c$(n):goto354
  84. 353 ifq%(n)=0thenprinttab(10)"[154]"c$(n)
  85. 354 next:goto337
  86. 355 ifa$<>" "then360
  87. 356 ifq%(p*18+r)=0thenprinttab(10)""c$(p*18+r)"[145]":q%(p*18+r)=1:goto337
  88. 358 printtab(10)"[154]"c$(p*18+r)"[145]":q%(p*18+r)=0:goto337
  89. 360 printtab(8)" "tab(27)" "
  90. 362 ifa$<>"[145]"then366
  91. 364 r=r-1:ifr<1thenr=rg
  92. 365 goto337
  93. 366 r=r+1:ifr>rgthenr=1
  94. 368 goto337
  95. 397 :
  96. 398 :   conversion
  97. 399 :
  98. 400 fori=1toj:ifq%(i)=0then498
  99. 401 ifk<>3andk<>4then407
  100. 402 d$=left$(c$(i),len(c$(i))-4)
  101. 403 ifasc(left$(d$,1))<97thend$=d$+e$(k):goto415
  102. 404 dd$="":fori4=1tolen(d$):zz=asc(mid$(d$,i4,1))
  103. 405 dd$=dd$+chr$(zz+32*(zz>64))
  104. 406 next:d$=dd$+e$(k):goto415
  105. 407 ifk<>5then411
  106. 408 d$=c$(i):l2=len(d$):fori2=1tol2
  107. 409 ifmid$(d$,i2,1)=" "thend$=left$(d$,i2-1)+"-"+right$(d$,l2-i2)
  108. 410 next
  109. 411 d$=left$(d$,12)+e$(k)
  110. 415 print"[147]"
  111. 420 x=8:gosub20:poke214,3:print:printtab(6)"[158]"m$(k)
  112. 430 poke214,5:print:printtab(15)"[154][195][207][206][214][197][210][212][201][206][199]"
  113. 440 printtab(20-(len(c$(i))/2))""c$(i)
  114. 450 print:printtab(19)"[154][212][207]"
  115. 460 printtab(20-(len(d$)/2))""d$
  116. 470 sys57812c$(i),8,0:poke780,0:poke781,0:poke782,197:sys65493
  117. 480 open2,dn,1,d$
  118. 490 ifk=1thensys49155,197,2:goto498
  119. 492 ifk=2thensys49152,197,2:goto498
  120. 494 ifk=3thensys49158,77,197,2:goto498
  121. 496 ifk=4thensys49161,197,2:goto498
  122. 497 ifk=5thengosub500
  123. 498 next:goto120
  124. 500 ifle$(g%(i))="3  "thensys49158,83,197,2:return
  125. 510 sys49164,197,2:return
  126. 697 :
  127. 698 :   directory
  128. 699 :
  129. 700 ifdn=8then705
  130. 701 poke214,19:print:printtab(6)"[150] ([211][150])ource or ([196][150])estination  ":poke198,0
  131. 702 geta$:ifa$<>"s"anda$<>"d"then702
  132. 704 ifa$="d"thenpoke36362,dn:poke36448,dn
  133. 705 print"[147]    [208]lease wait -- reading directory"
  134. 706 print"[159]   [215]hile directory scrolls, [211][208][193][195][197] [159]will"
  135. 707 print"   pause and [209][159] will return to the menu"
  136. 708 fori=1to144:na$(i)="":next
  137. 710 sys36096:poke36362,8:poke36448,8
  138. 720 fori=1to144
  139. 730 ifna$(i)=""theni=144:goto750
  140. 735 ifpeek(197)=60then735
  141. 737 ifpeek(197)=62theni=144:next:goto120
  142. 740 printtab(6)"[155]"na$(i)tab(26)"[154]"ty$(i)tab(32)"[159]"le$(i)
  143. 750 next
  144. 755 printtab(6)""le$(0)"[154]blocks free"
  145. 760 print"[159]    [208]ress [211][208][193][195][197][159] to return to the menu"
  146. 765 poke198,0
  147. 770 geta$:ifa$<>" "then770
  148. 780 goto120
  149. 797 :
  150. 798 :   loadstar
  151. 799 :
  152. 800 poke214,21:print
  153. 810 printtab(6)"[150] [209]uit?  [193]re you sure? (y[150]/n[150]) "
  154. 820 geta$:ifa$<>"y"anda$<>"n"then820
  155. 830 ifa$="n"then160
  156. 840 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  157. 850 ifer<>63thenend
  158. 860 print"[147][144]poke2048,0:poke44,8:load"chr$(34)"hello connect"chr$(34)",8"
  159. 870 poke631,13:poke632,82:poke633,213:poke634,13:poke198,4:end
  160. 999 goto999
  161. 5000 print"[147][129]  [208] [210] [201] [206] [212]   [211] [200] [207] [208] [208] [201] [206] [199]   [194] [193] [199]"
  162. 5002 dn=8:fori=9to11
  163. 5004 open15,i,15:close15
  164. 5006 ifst=0thendn=i:i=11
  165. 5008 next
  166. 5010 print"[159]           [217]our system setup:"
  167. 5020 print"       [154][196][210][201][214][197] 8 [159]- [211]ource [196]rive"
  168. 5030 print"       [154][196][210][201][214][197]"dn"[159]- [196]estination [196]rive"
  169. 5100 poke214,15:print
  170. 5120 print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  171. 5130 print"  [152]                                    "
  172. 5140 print"           [208][210][201][206][212] [211][200][207][208][208][201][206][199] [194][193][199]         "
  173. 5150 print"    by [198]ender [212]ucker and [211]cott [210]esh   "
  174. 5160 print"        [208]ublished on [204][207][193][196][211][212][193][210] #68     "
  175. 5170 print"      [211]ubscriptions 1-800-831-2694    "
  176. 5180 print"          [193]ll [210]ights [210